
% 5.09 1x1_shell_100Ohm/1x1_shell_100Ohm_q32_11 1x1_shell_100Ohm.model
% q32.source 2 3D       (5 days)

%1.09 1x1_shell_100Ohm/1x1_shell_100Ohm_q32_17 1x1_shell_100Ohm.model
%q32.source 2 3D       (1 day)

% 0.23 1x1_shell_100Ohm/1x1_shell_100Ohm_q32_23 1x1_shell_100Ohm.model
% q32.source 2 3D       (6 hours)

dir_path = 'D:\Manoj\stormi\run_100ohm-m\1x1_shell_100Ohm\';
filename = '1x1_shell_100Ohm_q10_23.res';
File_1 = [dir_path filename];
fid_out = fopen([dir_path filename '.real.txt'],'wt');
Read_res;
for i = 1:180,
    fprintf(fid_out,'%7.4f ',real(Hr1(i,:)));
    fprintf(fid_out,'\n');
end;
fclose all;

fid_out = fopen([dir_path filename '.imag.txt'],'wt');
for i = 1:180,
    fprintf(fid_out,'%7.4f ',imag(Hr1(i,:)));
    fprintf(fid_out,'\n');
end;
fclose all;


filename = '1x1_shell_100Ohm_q10_17.res';
File_1 = [dir_path filename];
fid_out = fopen([dir_path filename '.real.txt'],'wt');
Read_res;
for i = 1:180,
    fprintf(fid_out,'%7.4f ',real(Hr1(i,:)));
    fprintf(fid_out,'\n');
end;
fclose all;

fid_out = fopen([dir_path filename '.imag.txt'],'wt');
for i = 1:180,
    fprintf(fid_out,'%7.4f ',imag(Hr1(i,:)));
    fprintf(fid_out,'\n');
end;
fclose all;


filename = '1x1_shell_100Ohm_q10_11.res';
File_1 = [dir_path filename];
fid_out = fopen([dir_path filename '.real.txt'],'wt');
Read_res;
for i = 1:180,
    fprintf(fid_out,'%7.4f ',real(Hr1(i,:)));
    fprintf(fid_out,'\n');
end;
fclose all;

fid_out = fopen([dir_path filename '.imag.txt'],'wt');
for i = 1:180,
    fprintf(fid_out,'%7.4f ',imag(Hr1(i,:)));
    fprintf(fid_out,'\n');
end;
fclose all;







